
data Nucleotido = A | G deriving (Show)
type Secuencia = [Nucleotido]

data Aminoacido = H | V | N deriving (Show)
type Proteina = [Aminoacido]

data Citoplasma = Citoplasma [Proteina]

data Cell = Cell {  adn :: Secuencia,
                    proteinas :: [(Proteina, Int)]
                 }

